home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yammailcheck / install < prev    next >
Text File  |  1997-03-22  |  3KB  |  61 lines
  1.  
  2. ; MailCheck Installer script.
  3. ;
  4. ; $VER: V1.2 (21.03.97)
  5.  
  6. Failat 25
  7.  
  8. RequestChoice >ENV:Answer "MailCheck Version 1.2" "Are you ready to install?" "Yes" "No"
  9. If $Answer EQ "1"
  10.   Copy MailCheck S: QUIET CLONE
  11.   Copy SampleCheck S: QUIET CLONE
  12.   Copy LastCheck S: QUIET CLONE 
  13.   Copy MailCheck.rexx Rexx: QUIET CLONE
  14.   Echo " " >>s:user-startup
  15.   Echo ";BEGIN MailCheck" >>s:user-startup
  16.   Assign >nil: Miami: EXISTS
  17.   IF Warn
  18.   RequestChoice >ENV:Answer "MailCheck Version 1.2" "I cannot find an assign for Miami!*n*n         Show me where it is..." "Okay"  
  19.   RequestFile >ENV:MiamiPath TITLE="Location of Miami" NOICONS DRAWERSONLY
  20.   Echo Assign Miami: $MiamiPath >>s:user-startup
  21.   Endif
  22.   Assign >nil: YAM: EXISTS
  23.   IF Warn
  24.   RequestChoice >ENV:Answer "MailCheck Version 1.2" "I cannot find an assign for YAM!*n*n         Show me where it is..." "Okay"  
  25.   RequestFile >ENV:YAMPath TITLE="Location of YAM" NOICONS DRAWERSONLY
  26.   Echo Assign YAM: $YAMPath >>s:user-startup
  27.   Endif
  28.   RequestFile >ENV:Serial TITLE="Select your serial device driver" NOICONS DRAWER="Devs:" PATTERN="#?.device"
  29.   Echo SetEnv MCSerial $Serial >>s:user-startup
  30.   Echo "SetEnv MCStep 0" >>s:user-startup
  31.   RequestChoice >ENV:Answer "MailCheck Version 1.2" "Do you wish to play a sample*n   when new mail arrives?" "Yes" "No"
  32.   If $Answer EQ "1"
  33.     Echo "SetEnv MCPlay 1" >>s:user-startup
  34.     If Not Exists S:MCSamples    
  35.       MakeDir S:MCSamples
  36.       Copy Samples.info S:MCSamples.info    
  37.     EndIf
  38.     Copy Samples/you_have_a_mailmessage.wav s:MCSamples QUIET CLONE
  39.     SetEnv Sample "S:MCSamples/you_have_a_mailmessage.wav"    
  40.     RequestFile >ENV:Sample TITLE="Select a sample" NOICONS DRAWER="S:MCSamples" PATTERN="#?.(IFF|8SVX|WAV|VOC|AU|MAUD|AIFF)"
  41.     Echo SetEnv MCSample $Sample >>s:user-startup
  42.   Else
  43.     Echo "SetEnv MCPlay 0" >>s:user-startup
  44.     Echo "SetEnv MCSample NoSample! ; <--- Insert sample name here" >>s:user-startup    
  45.   EndIf
  46.   Echo ";END MailCheck" >>s:user-startup
  47.   Echo " " >>s:user-startup
  48.   Date >EnvArc:MCDate
  49.   Echo 0 >EnvArc:MCMail
  50.   RequestChoice >ENV:Answer "MailCheck Version 1.2" "Do you wish to install the docs?" "Yes" "No"
  51.   If $Answer EQ "1"
  52.     RequestFile >ENV:Docs TITLE="Destination path for docs" NOICONS DRAWERSONLY
  53.     Copy MailCheck.gui#? $Docs QUIET CLONE
  54.     Copy Mail2RW.rexx rexx: QUIET CLONE
  55.     Copy GetMCFiles.rexx rexx: QUIET CLONE
  56.   EndIf
  57.     RequestChoice >ENV:Answer "MailCheck Version 1.2" "     Installation complete.   *n*nDon't forget to reboot first!" "Okay"   
  58. Else
  59.   RequestChoice >ENV:Answer "MailCheck Version 1.2" "Maybe another time...?" "Okay"  
  60. EndIf
  61.